Chip 1996 September

home *** CD-ROM | disk | FTP | other *** search

/ Chip 1996 September / CHIP 1996 szeptember (CD07).zip / CHIP_CD07.ISO / sac / pack / vblha1.lzh / GETFILE.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1995-05-08 | 13KB | 259 lines

frmGetFile Select a file Form15 picLZHenter xxwwxx xxxxxp xxxxxp picLZH picLZHopen wwwwp picLZHClose txtLZHname btnTrash &Trash picFile2 PicFile1 cmdDelete &Delete cmdCancel &Cancel cmdOK dirDirectory drvDrive cboFileType filFiles txtFileName lblLZH LHA File Name lblDirName lblDirectories Directories: lbDrive Drive: lblFileType File Type: lblFileName File Name: @ Form_Load szCmdLine szOutPut isize Command1_Click retcode buffer text1 [256] [1 to 256]# buff1\ Command2_Click* btnexit_Click{ buff_ Text1_Change> btnversion_Click` btnlist_ClickT GetLHAVersionG btnextract_Click^ directS fname label1 szbuff start test3 buff2O scopy ecopy instw reflesh PICTUREBOX picture1 Picture1_Click Label1_Clickj cmdCancel_Click% lblDirName Captiony dirDirectory drvDrive_Change DriveError drvDrive Drive dirDirectory_Change filFiles cboFileType_Change patternpos1| patternpos2 patternposlen/ Pattern= cbofiletypek patternlen filFiles_Click8 txtFileName FileName cmdOK_Click pathandname frmGetFileh filFiles_DblClick cboFileType_Click frmlha appendpath insertpath filefilesI Form_Activate[ frnGetFile cmdDelete_Click1 curpath numitem, lstLHAcontentst ListCount Selected CreateU frmFetFilee lstFile filFiles_MouseDown Button Shift DragIcon picFile1_ cmdDelete_DragOverN Source Control State picFile2 cmdDelete_DragDropv workfile lopen fopen Form_GotFocusE btnTrash_Click btnTrash_DragDrop" btnTrash_DragOver Filenum Filesize bufsize szbuf JDELETE dirDirectory_KeyDown KeyCode KeyAscii& procInsPath procInsertPath txtFileName_Change picLZHj Picturey picLHZclose picLZHclose lblLZH_Click picLZH_Click LZHstatus picLZHopen txtLHZ txtLZHname picLZH_DragOver picLZHenter> picLZH_DragDropR LZHname txtLZH switch ListIndex dirDirectory_KeyPress txtFileName_KeyPress txtFileName_KeyDown btnexit_Click btnTrash_Click Insert drive and path name Get a free file number Get file size) Open file Output spaces to filet Close file Delete file" Update file list btnTrash_DragDrop btnTrash_DragOver change icon to release change icon to release cboFileType_Click Find starting position Find the end position Calculate the length of the pattern string Extract the pattern from the combo box set the pattern of the filfiles to the select patterno cmdCancel_Click Set the frmgetfile.tag to null Hide the frmgetfile cmdDelete_Click Insert drive and path name Delete file Update file list cmdDelete_DragDrop cmdDelete_DragOver change icon to release change icon to release cmdOK_Click if no file is selected, exit this procedurec Insert path name If not in LZH mode then hide frmgetfile End LZH filename modei Select a file Change form name Set LZH file namex Clear file namen dirDirectory_Change Change the path of the file list box Update lblDirName dirDirectory_KeyPress Change path drvDrive_Change Set Error trap Change the path of the directory list box to new drive Error routine Restore to the original driveo Drive error! Error filFiles_Click Update the txtFileName text boxg filFiles_DblClick Copyright 1995 by Hitoshi Ozawa If it is a LHA file, open frmlha Save file name in fname variable Update the txtfilename text box with selected file name execute the cmdOK_Click()x filFiles_MouseDown Change drag icon Enable drag Form_Load Update the Directory lblDir Name with the path of directory list box Display closed LZH cabinet picLZH_Click If close the open file Select LZH file name If open the close file Select a file Clear LHA file namem Clear file namem picLZH_DragDrop If file is not selected do nothing Exit if not in LZH modet Select a file Change form name Insert a pathl Set LZH file namet Clear file namee If LZH file name is not entered, prompt a file name Select a LZH file! Reset buffer sizel Attach path name Save current path Create LHA command Perform LHA operation Check for error LHA file add error: Return to original drive Return to original pathe refresh getfile file box picLZH_DragOver change icon to entry change icon back to open txtFileName_KeyPress set the pattern of the filfiles to the select pattern